﻿Public Class MonHocMoBUS
    Private qlSVDAO As MonHocMoDAO
    Public Sub New()
        qlSVDAO = New MonHocMoDAO
    End Sub
    Public Shared Function GetData() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = MonHocMoDAO.GetData()
        Return dt
    End Function
    Public Shared Sub ThemMHM(ByVal MonHocMo As MonHocMoDTO)
        MonHocMoDAO.ThemMHM(MonHocMo)
    End Sub
    Public Shared Sub UpDateMHM(ByVal MonHocMo As MonHocMoDTO)
        MonHocMoDAO.UpDateMHM(MonHocMo)
    End Sub
    Public Shared Sub DeleteMHM(ByVal MonHocMo As MonHocMoDTO)
        MonHocMoDAO.DeleteMHM(MonHocMo)
    End Sub

    Public Shared Function LayDSMonHocMo() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = MonHocMoDAO.LayDSMONHOCMO()
        Return dt
    End Function
    Public Shared Sub CapNhat(ByVal bangMonHocMo As DataTable)
        MonHocMoDAO.CapNhat(bangMonHocMo)
    End Sub
    Public Shared Function LayCauTrucBang() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = MonHocMoDAO.LayCauTrucBang()
        Return dt
    End Function

    Public Shared Function TimKiemMonHocTheoTen(ByVal maMonHocMo As String) As DataTable
        Dim dt As DataTable = MonHocMoDAO.TimKiemTheoTen(maMonHocMo)
        Return dt
    End Function
End Class
